home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / demo.exe / demo.DXR / 00021_initial all.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  962 b   |  23 lines
  1. on mouseUp
  2.   global lang, langPrefix, spacer, edMovie, BCmovie, KidMovie, pathToMain, ionamus, pathTolang, edmus, bcMus, intro
  3.   set map to the clickOn
  4.   set key to the text of cast "country"
  5.   repeat with p = 1 to the number of lines in key
  6.     if word 1 of line p of key = map then
  7.       set lang to word 2 of line p of key
  8.       set langPrefix to word 3 of line p of key
  9.       exit repeat
  10.     end if
  11.   end repeat
  12.   go(the frame + 1)
  13.   set pathToMain to the pathName
  14.   set pathTolang to pathToMain & lang & spacer
  15.   set edMovie to pathToMain & "movies" & spacer & langPrefix & "edmark.dir"
  16.   set BCmovie to pathToMain & "movies" & spacer & langPrefix & "BChild.dir"
  17.   set intro to pathToMain & "movies" & spacer & "kids.dir"
  18.   set KidMovie to pathToMain & "movies" & spacer & "kids.dir"
  19.   set ionamus to pathToMain & "music" & spacer & "ionamus"
  20.   set edmus to pathToMain & "music" & spacer & "edmus"
  21.   set bcMus to pathToMain & "music" & spacer & "bcmus"
  22. end
  23.